home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aab.d64 / 6.c64 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  16KB  |  569 lines
  1. 0 POKE45,100:POKE46,72:CLR:POKE53265,27:GOTO8000
  2. 1 GOTO20009
  3. 2 GOTO20027
  4. 3 GOTO20001
  5. 7 GOSUB2200:PRINT"I CAN'T DO THAT.";:GOTO9
  6. 8 GOSUB2200:PRINT"OK.";
  7. 9 GOSUB80:ONSGN(PEEK(198))GOTO99:GOTO9
  8. 70 NEXT:GOTO2
  9. 80 IFTR>TIORL<2THENRETURN
  10. 85 IFD=0ANDL(4)+L(6)=20THENR=-1:GOSUB92:GOTO1800
  11. 88 GOSUB92:TR=90+RND(8)*360+TI:RETURN
  12. 92 PN=54272:FORNQ=PNTOPN+23:POKENQ,0:NEXT:POKEPN+24,15:POKEPN+1,7:POKEPN+5,12
  13. 93 POKEPN+6,0:FORQ=1TO5:POKEBC,1:POKEPN+4,129:FORJ=1TO35:NEXT:POKEBC,0
  14. 94 FORJ=1TO55+RND(8)*92:NEXT:IFQ<5THENPOKEPN+4,128
  15. 95 NEXT:RETURN
  16. 99 GOSUB2100:PRINT"[146]EXITS:";:IFL<6THENPRINT" NORTH";
  17. 100 IFL=7THENPRINT" WEST";:GOTO150
  18. 110 IFL>2THENPRINT" SOUTH";:IFL=6ANDDTHENPRINT" DOWN";
  19. 120 IFL=4THENPRINT" EAST";
  20. 150 GOSUB2200:PRINT"COMMAND? [164][157]";:R$="
  21. 160 [161]I$:[141]80:[139]I$[178][199](13)[167]200
  22. 180 [139]I$[177]""[175]I$[179]"["[167]R$[178]R$[170]I$:[153]I$"TOCMD";
  23. 185 [139][195](R$)[178]0[176]I$[179][177][199](20)[167]190
  24. 186 [153]" CMDCMDTOCMD";:[139][195](R$)[177]1[167]R$[178][200](R$,[195](R$)[171]1):[137]190
  25. 187 R$[178]""
  26. 190 [139][195](R$)[179]28[167]160
  27. 200 V[178]0:[139][195](R$)[178]0[167]150
  28. 202 [137]4000
  29. 205 R$[178]R$[170]"  ":V$[178][200](R$,2):[129]Q[178]2[164][195](A$)[169]2:[139]V$[178][202](A$,Q,2)[167]V[178]Q[173]2:Q[178]H
  30. 208 [130]:[139][194](657)[178]0[167]L[178]7:[143]"R$=""
  31. 210 N$="":FORQ=LEN(R$)-2TO1STEP-1:IFMID$(R$,Q,1)=" "THENN$=MID$(R$,Q+1,2):Q=.
  32. 220 NEXT:N=.:FORQ=2TOLEN(B$)STEP2:IFN$=MID$(B$,Q,2)THENN=Q/2:Q=H
  33. 280 NEXT:IFPEEK(657)=0THENNEW:
  34. 285 ONVGOTO300,400,500,600,700,800,900,1000,1100,1200,1300,1400
  35. 290 GOSUB2200:PRINT"HUH? [164]";:GOTO9
  36. 300 IFN=11THENG=1:GOTO1500
  37. 310 GOTO7
  38. 400 GOSUB2200:IFN=1THEN450
  39. 410 IFN=2ANDL>2ANDL<7THENL=L-1:GOTO1500
  40. 415 IFN=2ANDL=2THENPRINT"I CAN'T GO SOUTH, THE IS GATE LOCKED!";:GOTO9
  41. 420 IFL=6ANDD=1ANDN=3THEN20000
  42. 425 IFN=12ANDL=4THENL=7:GOTO1500
  43. 430 IFN=13ANDL=7THENL=4:GOTO1500
  44. 449 PRINT"I CAN'T GO THERE.";:GOTO9
  45. 450 IFL=5ANDF=0THENPRINT"DOG WILL BITE ME IF I TRY TO GO NORTH.";:GOTO9
  46. 455 IFL>5THENPRINT"I CAN'T GO NORTH FROM HERE.";:GOTO9
  47. 460 IFG=0THENPRINT"I CAN'T GO NORTH, THE GATE IS CLOSED!";:GOTO9
  48. 465 IFL-1THEN499
  49. 470 PRINT"[147]THE GATE SLAMMED SHUT AND
  50. 475 [153]"LOCKED BEHIND ME!!!":[129]Q[178]1[164]2500:[130]
  51. 499 L[178]L[170]1:[137]1500
  52. 500 [141]2200
  53. 505 [139]N[178]7[175]L(6)[178]7[167][153]"I SEE AN "D$(6)".";:L(6)[178]H:[137]9
  54. 510 [139]N[178]0[167]150
  55. 520 [139]N[178]14[175]L(9)[178]14[175]L[178]7[167][153]"I SEE A SANDWICH WRAPPED IN FOIL.";:[137]9
  56. 599 [153]"I SEE NOTHING SPECIAL.";:[137]9
  57. 600 [139]N[171]3[176]L[171]5[167]7
  58. 605 [141]2200:[139]F[167][153]"I ALREADY FED THE DOG.":[137]9
  59. 607 [139]L(9)[171]H[167][153]"I DON'T HAVE ANYTHING TO FEED THE DOG!":[137]9
  60. 610 F1[178]1:[139]L(8)[167]L(9)[178]0:F[178]1:[137]8
  61. 620 [141]2200:[153]"THE DOG WON'T EAT THE SANDWICH.";:[137]9
  62. 700 [139]N[171]9[176]L(8)[176]L(9)[179][177]H[167]7
  63. 710 L(8)[178]H:D$(9)[178]"SANDWICH":[137]8
  64. 800 [139]L[178]6[175](N[178]4[176]N[178]6)[167][139]L(N)[171]10[167]L(N)[178]10:[137]850
  65. 820 [137]7
  66. 850 [139]L(4)[178]10[175]L(6)[178]10[167]TR[178]0
  67. 899 [137]1500
  68. 900 [141]2100:[129]Q[178]4[164]9:[139]L(Q)[178]H[167][153]D$(Q)" ";
  69. 910 [130]:[137]9
  70. 1000 [141]2200:[153]"IT'S RAINING!";:[137]9
  71. 1100 [141]2200:[139]N[177]9[167][153]"IT'S TOO HEAVY TO CARRY.";:[137]9
  72. 1110 [139]N[178]3[175]L[178]5[167][153]"ARE YOU TRYING TO GET ME KILLED!!!?";:[137]9
  73. 1120 [139]N[178]9[175]L(9)[178]14[175]L[178]7[167]L(9)[178]H:[137]8
  74. 1199 [137]7
  75. 1200 [141]2200
  76. 1205 [139]L[178]1[175]G[178]0[167][153]"PERHAPS THE GATE NEEDS TO BE OPENED.";:[137]9
  77. 1210 [139]L[178]5[175](F1[178]0[176]L(8)[178]H)[175]F[178]0[167][153]"THAT DOG LOOKS HUNGRY!";:[137]9
  78. 1215 [139]L[178]5[175]F1[175]F[178]0[167][153]"THE DOG CAN'T EAT THE SANDWICH YET.";:[137]9
  79. 1220 [139]L[171]6[167]1299
  80. 1230 [139]L(4)[178]H[175]L(6)[178]7[167][153]"MAYBE I HAVE SOMETHING THAT WILL HELP.";:[137]9
  81. 1240 [139]L(6)[178]7[167][153]"BETTER LOOK AT EVERYTHING I HAVE!";:[137]9
  82. 1299 [153]"I CAN'T THINK OF ANYTHING.";:[137]9
  83. 1300 [143]
  84. 1310 [139]L[178]6[175]D[178]1[167]20000
  85. 1320 [137]7
  86. 1400 [143]
  87. 1410 [137]7
  88. 1500 [153]"LOAD":[141]2100:[153]"ON  "C$;
  89. 1510 [153]"WAITSTOP"[163]15[170]NT)"(null)ON(null)ON(null)ON(null)(null)(null)ON(null)ON(null)";
  90. 1550 [145]L[141]3000,3200,3300,3400,3500,3600,3900:[137]99
  91. 1800 L(4)[178]25:[141]3600
  92. 1810 [153]""[163]NT)"STOP(null)(null)CMD(null)CMDCMD(null)ONON(null)ON(null)(null)(null)(null)(null)ON(null)TAB(TAB(CMDCMDON(null)ON(null)
  93. 1850 D=1:GOSUB92:GOSUB92:GOSUB92:R=-.05:GOTO1500
  94. 2100 GOSUB2200:PRINTXL$;:PRINT"[146]  "C$;:PRINTXL$;:RETURN
  95. 2190 PRINT"";:RETURN
  96. 2200 PRINTXL$;:PRINT"[146]"C$;:PRINTXL$;:PRINT"";:RETURN
  97. 3000 PRINT"[156][146] [146][181]"TAB(25)" [146][181]
  98. 3002 [139]G[167]3100
  99. 3005 [129]Q[178]3[164]20:[153]"INTINTINTINTINTINTINTINT WAITINTINTINTINTINTINTINTINTINTINTINTINTINTINTINTINT WAITINTINTINTINTINTINTINTINTINTINTINTINTINTINT";:[130]
  100. 3010 [153]"LISTDIAMOND"[166]34)"CEMETERY
  101. 3020 PRINT"  [157][157]  [157][157]  [145][157][209]";:RETURN
  102. 3100 PRINT"[182] ":FORQ=3TO20
  103. 3110 PRINT"[181][181][181][181][181][181]   [146]                 [146][181][181][181][181][181][181][181][181][181][181][181][181][181]"
  104. 3150 NEXT:PRINT"";
  105. 3160 PRINT"[151]"TAB(12)"      "
  106. 3165 PRINTTAB(12)"      "
  107. 3180 PRINTTAB(12)"  [170][180]"
  108. 3185 PRINTTAB(12)"  [170][180]"
  109. 3195 RETURN
  110. 3200 PRINT""
  111. 3210 PRINTTAB(10)"[151][169]            [206]"
  112. 3220 PRINTTAB(10)"[152]   PRIVATE   [151] "
  113. 3230 PRINTTAB(10)"[152]   PROPERTY  [151] "
  114. 3240 PRINTTAB(10)"[152]     NO      [151] "
  115. 3250 PRINTTAB(10)"[152] TRESPASSING [151][146][169]"
  116. 3260 PRINTTAB(16);
  117. 3299 GOTO3450
  118. 3300 PRINT"[152]"
  119. 3310 PRINTTAB(3)"[151][169]            [206]"
  120. 3320 PRINTTAB(3)"[152]   BEWARE    [151] "
  121. 3330 PRINTTAB(3)"[152]     OF      [151] "
  122. 3340 PRINTTAB(3)"[152]   VICIOUS   [151] "
  123. 3350 PRINTTAB(3)"[152]     DOG     [151][146][169]"
  124. 3360 PRINTTAB(9);
  125. 3399 GOTO3450
  126. 3400 PRINT"[144]":TX=25
  127. 3405 PRINTTAB(TX)"[151][169]            [206]"
  128. 3410 PRINTTAB(TX)"[152]             [151] "
  129. 3420 PRINTTAB(TX)"[152]    KEEP     [151] "
  130. 3425 PRINTTAB(TX)"[152]    OUT!     [151] "
  131. 3430 PRINTTAB(TX)"[152]             [151][146][169]"
  132. 3435 PRINTTAB(TX+6);
  133. 3450 PRINT"[152][181][151] [157][157]";
  134. 3452 REMPRINT"[152][181][151] [157][157]";
  135. 3454 PRINT"[152][181][151] [157][157]";
  136. 3456 PRINT"[152][181][151] [157][157]";
  137. 3458 PRINT"[152][181][151][146][169]";:RETURN
  138. 3500 PRINT"[146][144]    [161]
  139. 3501 [153][166]15)"SPC(SPC(CMDCMDSPC(SPC(
  140. 3502 PRINT"  [165]     [164][164]    [188][184][184][190]
  141. 3505 [153]"  FN    (null)SPC(*(null)TOTO
  142. 3510 PRINT"  [165]   [206] [166]   [188][165]
  143. 3520 [153]"  (null)TAB(TAB(TAB(     ASCASCFN
  144. 3530 PRINT"  [165]      [206][163][163][163]
  145. 3540 [153]"  (null)TOTOTOTOTO(null)
  146. 3550 FORQ=1TO3:PRINT"    ":NEXT
  147. 3560 PRINT"   [146][187] [146][187]":RETURN
  148. 3600 ONDGOTO3800:PRINT""TAB(NT)"[144]    [206][163][163][163][163][163][163][163][205]"
  149. 3620 PRINTTAB(NT)"   [206]         [205]
  150. 3630 [129]Q[178]1[164]3:[153][163]NT)"  THEN           FN":[130]
  151. 3633 [153][163]NT)"  THEN     (null)     FN"
  152. 3636 [129]Q[178]5[164]9:[153][163]NT)"  THEN           FN":[130]
  153. 3640 [153][163]NT)"  (null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)
  154. 3650 PRINTTAB(NT)"  [207][183][183][183][183][183][183][183][183][183][183][183][208]":PRINTTAB(NT)"  [204][175][175][175][175][175][175][175][175][175][175][175][186]
  155. 3670 [153]""[163]NT)"LISTLE0 0PEEKLCMDCMDCMDCMDCMDCMDCMDR. I. P.STOP";
  156. 3700 [139]L(4)[178]10[167][153]"CMDCMDCMD    WAITTAN(null)CMDCMDCMD";
  157. 3705 [139]L(4)[178]25[167][153]"CMDCMDCMD      CMDCMDCMD";
  158. 3710 [139]L(6)[178]10[167][153]"";:[129]Q[178]0[164]11:[153]"SGNONCMD";:[130]
  159. 3799 [142]
  160. 3800 [153]"STOP
  161. 3810 PRINTTAB(NT)"     [164][206]    [205][164]
  162. 3820 [153][163]NT)"     (null)(null)TAB(TAB(TAB(TAB((null)(null)
  163. 3830 PRINTTAB(NT)"    [206] [165]    [167] [205]
  164. 3840 [153][163]NT)" TOTO(null)  FN    THEN  (null)TOTO
  165. 3850 PRINTTAB(NT)"  [206][163][163][163][163][163][163][163][163][163][163][163][163][205]
  166. 3860 [153][163]NT)" (null)              (null)":[142]
  167. 3900 [153]"PRINT#
  168. 3905 A1$="             ":XT=9
  169. 3907 PRINTTAB(XT)LEFT$("[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]",LEN(A1$)+2)
  170. 3910 PRINTTAB(XT)"[165]"A1$"[167]
  171. 3915 [153][163]XT)"(null)"A1$"(null)
  172. 3920 PRINTTAB(XT)"[199]"A1$"[200]
  173. 3925 [153][163]XT)"PEEK"A1$"PEEK
  174. 3927 PRINT"[145]"TAB(XT+LEN(A1$)/2-1)"TRASH[152]
  175. 3930 [153][163]XT)"LEFT$"A1$"CHR$
  176. 3935 PRINTTAB(XT)"[217]"A1$"[212]
  177. 3940 [153][163]XT)"THEN"A1$"FN
  178. 3945 XT=XT+1:A1$=LEFT$(A1$,LEN(A1$)-2)
  179. 3950 PRINTTAB(XT)"[165]"A1$"[167]
  180. 3952 [153][163]XT)"(null)"A1$"(null)
  181. 3954 PRINTTAB(XT)"[199]"A1$"[200]
  182. 3956 [153][163]XT)"PEEK"A1$"PEEK
  183. 3958 PRINTTAB(XT)"[200]"A1$"[199]
  184. 3960 [153][163]XT)"(null)"A1$"(null)
  185. 3962 PRINTTAB(XT)"[167]"A1$"[165]
  186. 3970 [153][163]XT[170]1)[200]("TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(",[195](A1$))
  187. 3999 [142]
  188. 4000 Y$[178]" "[170]R$[170]" ":[129]Q[178]1[164][195](Y$)
  189. 4010 [139][202](Y$,Q,4)[178]" YOU"[167]4050
  190. 4020 [130]:[137]205
  191. 4050 [141]2200:[139][202](Y$,Q,6)[179][177]" YOUR "[167]Y$[178]Y$[170]"TOO!":[137]4090
  192. 4060 Y$[178][200](Y$,Q[170]5)[170]"OWN "[170][202](Y$,Q[170]6)[170]"!"
  193. 4090 [153][200](Y$,38);:Q[178]9E9:[130]:[137]9
  194. 5000 [153]"LOADPEEKELOW IS A LIST OF VERBS THAT YOU CAN
  195. 5200 PRINT"USE WITH [199]RAVE [210]OBBERS.  [212]HE DISCOVERY
  196. 5210 [153]"OF THE NOUNS IS LEFT UP TO YOU; THAT'S
  197. 5220 PRINT"PART OF THE FUN!
  198. 5230 [153]"
  199. 5240 PRINT"OPEN, GO, LOOK, FEED, UNWRAP, INVENTORY,";
  200. 5250 PRINT"LIGHT, GET, PRESS, CUT, PUSH, PUT, JUMP,";
  201. 5260 PRINT"HELP, DOUSE, SMOTHER, EXTINGUISH
  202. 5500 [141]7000:[153]"LOAD"[199](142):[142]
  203. 7000 [153]"(HIT ANY KEY)":[151]198,0:[146]198,1:[151]198,0:[142]
  204. 8000 P[178]54296
  205. 8010 BR[178]53280
  206. 8020 BC[178]53281
  207. 8030 U[178]54273
  208. 8100 [151]BC,0:[151]P,1:[151]U,64:R[178][171].05
  209. 8110 [151]BR,6
  210. 8120 [139][194](2)[178]0[167][151]2,[194](657)
  211. 8900 XT[178]10:[153][199](142)"LOAD"[163]XT)"PRINT#STEP                   (null)
  212. 8905 PRINTTAB(XT)"                 TM  "
  213. 8907 PRINTTAB(XT)"    GRAVE ROBBERS    "
  214. 8910 PRINTTAB(XT)"                     "
  215. 8912 PRINTTAB(XT)"  COPYRIGHT (C) 1983 "
  216. 8915 PRINTTAB(XT)"         BY:         "
  217. 8916 PRINTTAB(XT)"                     "
  218. 8917 PRINTTAB(XT)"    BRUCE ROBINSON   "
  219. 8918 PRINTTAB(XT)"         AND         "
  220. 8920 PRINTTAB(XT)" DR ALAN STANKIEWICZ "
  221. 8922 PRINTTAB(XT)"                     "
  222. 8925 PRINTTAB(XT)"                     "
  223. 8927 PRINTTAB(XT)" ALL RIGHTS RESERVED "
  224. 8930 PRINTTAB(XT)"                     "
  225. 8940 PRINTTAB(XT-1)"[151][169]                     [223]"
  226. 8942 PRINTTAB(XT-2)"[169]                       [223]"
  227. 8944 PRINTTAB(XT-2)"[152]     DISTRIBUTED BY:     "
  228. 8945 POKE657,PEEK(2)
  229. 8946 PRINTTAB(XT-2)"VICTORY SOFTWARE/PAOLI,PA"
  230. 8960 PRINT"(HIT ANY KEY)";:POKE198,0
  231. 8965 IFPEEK(198)THEN8999
  232. 8970 IFTI>TRTHENGOSUB92:TR=90+RND(8)*360+TI
  233. 8975 GOTO8965
  234. 8999 PRINT"[147]"CHR$(14):GOSUB5000
  235. 9010 FORQ=4TO9:READD$(Q):NEXT:DATADYNAMITE,MATCHES,ANTENNA,RADIO,FOIL
  236. 9015 DATASANDWICH-IN-FOIL
  237. 9020 DIML%(0):NT=10:H=99:L=1:FORQ=4TO9:READL(Q):NEXT:DATA99,99,7,99,0,14
  238. 9100 A$=" OPGOLOFEUNPUINLIGEHEJUPR"
  239. 9105 B$=" NOSODODYMAANRAFOSATOGAEAWETR"
  240. 9110 XL$=""
  241. 9115 C$="                                      "
  242. 9999 GOTO1500
  243. 19000 GOTO21510
  244. 19001 PRINT"[145][154]                                        [146][144]";:GOTO21510
  245. 20000 CLR:PRINTCHR$(142):RE$="[152]":PI$="[152]":GOTO29000
  246. 20001 PRINT"[147]":GOSUB22100:GOTO19000
  247. 20002 PRINT""TAB(X);:IFYTHENFORQ=1TOY:PRINT"";:NEXT
  248. 20003 RETURN
  249. 20004 PRINTRE$"I CAN'T DO THAT!";:GOTO1
  250. 20005 PRINTRE$"I SEE NOTHING SPECIAL.";:GOTO1
  251. 20006 PRINTRE$"THE ELEVATOR IS JAMMED BETWEEN FLOORS.";:GOTO1
  252. 20008 PRINTRE$"OK.";
  253. 20009 GOSUB22200:PRINTRE$"COMMAND? [164][157]";:R$=""
  254. 20010 I$="":IFPEEK(198)THENGETI$:IFI$>""ANDI$<"["THENR$=R$+I$:PRINTI$"[164][157]";:GOTO20027
  255. 20011 IFL-14THEN2
  256. 20012 IFDTHEN2
  257. 20013 IFTI<15THEN2
  258. 20015 TI$="000000":PRINT"[144]";
  259. 20016 ON1+RND(8)*4GOTO20020,20021,20022
  260. 20017 PRINT"[172][188][191][157][157][157][191][146][188][172]";:GOTO20025
  261. 20020 PRINT"[187][191][191][157][157][157][191][191][191]";:GOTO20025
  262. 20021 PRINT"[191][146][191][188][157][157][157][191][187][190]";:GOTO20025
  263. 20022 PRINT"[190][191][188][157][157][157][172][190][188]";
  264. 20025 PRINT"[146][152]";:FORQ=1TOLEN(R$)+9:PRINT"";:NEXT
  265. 20027 IFI$<>CHR$(20)ORLEN(R$)=0THEN20030
  266. 20028 PRINT" [157][157][164][157]";:IFLEN(R$)>1THENR$=LEFT$(R$,LEN(R$)-1):GOTO20030
  267. 20029 R$=""
  268. 20030 IFI$=CHR$(13)THEN20200
  269. 20040 IFLEN(R$)<30THEN20010
  270. 20200 GOTO22000
  271. 20201 V=0:R$=R$+"  ":IFLEN(R$)>2THEN20204
  272. 20202 IFL=16ORL=15THENIF(PEEK(BC)AND15)=0THENR$="LOOK  ":GOTO20204
  273. 20203 GOTO1
  274. 20204 V$=LEFT$(R$,2)
  275. 20205 FORQ=2TOLEN(A$)STEP2
  276. 20207 IFV$=MID$(A$,Q,2)THENV=Q/2:Q=H
  277. 20210 NEXT:N$="":FORQ=LEN(R$)-2TO2STEP-1
  278. 20215 IFMID$(R$,Q,1)=" "THENN$=MID$(R$,Q+1,2):Q=.
  279. 20220 NEXT:IFPEEK(657)=0THENL=17:REM"S=0
  280. 20225 N[178].:[129]Q[178]2[164][195](B$)[169]2
  281. 20230 [139]N$[178][202](B$,Q,2)[167]N[178]Q[173]2:Q[178]H:[139]N[178]22[167]N[178]21
  282. 20280 [130]:[141]22100:[139]V[179]1[167]20290
  283. 20285 [145]V[137]20300,20400,20500,20600,20700,20800,20900,21000,21100,21200,21300
  284. 20287 [145]V[171]11[137]21400,21400,21400,20004,20004
  285. 20290 [153]"I DON'T UNDERSTAND.";:[137]1
  286. 20300 [139]N[178]8[167]F[178]1:[137]20001
  287. 20302 [139]N[178]20[175]L[178]13[167]P[178]1:[153]"THE KNOB FELL OFF!STOP"PI$;::[141]23101:[137]1
  288. 20305 [139]N[171]10[176]L[171]14[167]20004
  289. 20307 [139]L(4)[171]H[167][153]"I DON'T SEE THE SAFE.";:[137]1
  290. 20310 S1[178]S1[170]1:[153]"COMBINATION? TOCMD";:R$[178]"":[129]Q[178]0[164]5
  291. 20350 [161]I$:[139]I$[179]"0"[176]I$[177]"9"[167]20350
  292. 20360 R$[178]R$[170]I$:[153]I$"TOCMD";:[139]Q[179]5[175]Q[175]1[167][153]"-TOCMD";
  293. 20380 [130]:[141]22100
  294. 20385 Q[178][197]([202](R$,5,1)):[139]Q[167][139][197](R$)[172][197](I$)[173]Q[178]1656753[167]S[178]1:[137]20001
  295. 20390 [153]"SORRY, WRONG COMBINATION.";:[129]Q[178]0[164]999:[130]:[137]1
  296. 20400 [139]I[167]20450
  297. 20401 [139]N[171]17[167]20420
  298. 20403 [139]G[178]0[167][153]RE$"BAD IDEA!";:[137]1
  299. 20405 [139]L[178]15[176]L[178]14[167][139]JP[178]0[167]20006
  300. 20410 L[178]17:[137]3
  301. 20420 [139]N[178]9[167][139]L[178]14[176]L[178]15[167]20490
  302. 20430 [139]I[178]0[175]L[178]15[175]N[178]50[167]L[178]17:[137]3
  303. 20440 [137]20004
  304. 20450 [139]N[179]18[167]20004
  305. 20455 [139]N[178]19[167]I[178]0:[137]3
  306. 20460 [139]N[178]18[167]20480
  307. 20470 [139]L[178]15[167]L[178]14:I[178]0:[137]3
  308. 20472 [137]20004
  309. 20480 [139]L[178]14[167]L[178]15:I[178]0:[137]3
  310. 20482 [137]20004
  311. 20490 [139]D[167]I[178]1:[137]3
  312. 20495 [153]"ARE YOU CRAZY?  THAT FIRE IS HOT!";:[137]1
  313. 20500 [139]N[178]0[167]3
  314. 20505 [139]N[171]17[167]20590
  315. 20506 [139](L[179][177]15)[176]JP[178]1[167]20550
  316. 20507 [153]"LOAD":[151]53281,0
  317. 20508 X[178]12:Y[178]3:V[178]14:W[178]15:[141]23550
  318. 20510 [153]"         (null)                    (null)
  319. 20512 PRINT"          [205]                  [206]
  320. 20514 [153]"           (null)                (null)
  321. 20515 PRINT""
  322. 20516 PRINT"           [206]                [205]
  323. 20518 [153]"          (null)                  (null)
  324. 20520 PRINT"         [206]                    [205]
  325. 20530 [153]"";:[153][163]16)"SYS(null)"
  326. 20535 [129]Q[178]1[164]5:[153][163]16)"SYS      ":[130]
  327. 20537 [153][163]16)"SYSSTEP"
  328. 20549 [153]PI$:[137]1
  329. 20550 [139]L[178]16[175]G[178]0[167]J[178]1:X[178]19:Y[178]10:V[178]0:W[178]1:[141]23590:[141]23550:[137]1
  330. 20555 [137]20005
  331. 20590 [139]L[178]14[175]N[178]21[175]L(23)[178]21[167][153]"I SEE A BUNCH OF SOIL.";:[137]1
  332. 20599 [153]"I SEE NOTHING SPECIAL.";:[137]1
  333. 20600 [139]L[171]17[176]N[179]13[176]N[177]16[167]20004
  334. 20610 [139]N[178]15[176](N[178]13[175]E[178]0)[167][153]"THAT BUTTON IS NOT WORKING NOW.";:[137]20009
  335. 20620 L[178]N:[137]3
  336. 20700 [139]L(2)[171]H[176]L[171]13[176]N[171]11[167]20004
  337. 20710 A$[178]"LOADPRINT#CONGRATULATIONS!  YOU FOUND THE DIAMOND":[141]20799
  338. 20715 A$[178]"AND THE SECRET PASSAGE LEADING OUT!":[141]20799
  339. 20716 [129]Q[178]1[164]3000:[130]:[128]
  340. 20799 [129]Q[178]1[164][195](A$):[153][202](A$,Q,1);:[129]J[178]1[164]60:[130]:[130]:[153]:[142]
  341. 20800 [139]L(1)[178]H[175]N[178]1[175]F[178]1[167]G[178]1:L(1)[178]0:[137]3
  342. 20805 [139]L(1)[178]H[175]N[178]1[167][153]"I CAN'T, THE FUSEBOX IS CLOSED.":[137]1
  343. 20810 [139]L[171]17[167]20850
  344. 20830 [139]N[178]3[175]L(3)[178]H[167]E[178]1:L(3)[178]0:[137]3
  345. 20840 [137]20600
  346. 20850 [139]N[178]23[175]L(23)[171]H[167][153]"I DON'T HAVE ANY SOIL!";:[137]1
  347. 20860 [139]N[178]23[175]L(23)[178]H[175]L[178]14[167][153]"GOOD WORK, YOU DOUSED THE FIRE.";:[137]20895
  348. 20890 [137]20004
  349. 20895 L(23)[178]0:D[178]1:[141]25000:[137]1
  350. 20900 [129]Q[178]1[164]30:[139]L(Q)[178]H[167][153]D$(Q)" ";
  351. 20910 [130]:[137]1
  352. 21000 [139]L[178]15[167]L[178]17:JP[178]1:[137]3
  353. 21010 [137]20004
  354. 21100 [143]
  355. 21102 [139]N[178]9[175](L[178]14[176]L[178]15)[167][153]"GET SERIOUS!  I'M NOT HERCULES!!";:[137]1
  356. 21105 [139]L[178]14[167]21150
  357. 21120 [139]L[178]13[175]N[178]2[167]L(2)[178]H:[137]3
  358. 21149 [137]20004
  359. 21150 [139]S[175]N[178]3[175]L(3)[178]10[167]L(3)[178]H:[137]3
  360. 21155 [139]N[178]4[167]L(4)[178]H:[137]3
  361. 21160 [139]N[178]23[175]L(23)[178]21[167]L(23)[178]H:[137]20008
  362. 21170 [139]N[178]21[167][153]"POTTED PLANT TOO HEAVY TO CARRY!";:[137]1
  363. 21199 [137]20004
  364. 21200 [143]
  365. 21202 [139]L[178]16[175]QU%[178]0[167]QU%[178]1:[153]"THE ELEVATOR IS THE ONLY WAY OUT.";:[137]1
  366. 21205 [139]F[178]0[175]L[178]16[167][153]"ITEM THAT READS HIGH VOLTWAIT IS A FUSEBOX.";:[137]1
  367. 21210 [139]G[178]0[175]L[178]16[167][153]"CHECK INVENTORY FOR HELP.";:[137]1
  368. 21212 [139]I[167][153]"TRY DIFFERENT DIRECTIONS.";:[137]1
  369. 21215 [139]L[179][177]14[167]21250
  370. 21217 [139]L(4)[171]H[167][153]"OBJECT ON WALL IS A PICTURE.";:[137]1
  371. 21220 [139]S1[178]0[176][187](8)[177].5[176]S[179][177]0[167]21230
  372. 21222 [139]S1[177]25[167][153]"LOOK AT (null)E0 0LEFT$(null) UPSIDE-DOWN.";:[137]1
  373. 21224 [139]S1[177]10[167][153]"COMBINATION RELATED TO (null)E0 0LEFT$(null).";:[137]1
  374. 21226 [153]"CLUE FOR COMBINATION ON FOURTH FLOOR.";:[137]1
  375. 21230 [139]L(23)[178]21[175][187](8)[177].5[167][153]"POTTED PLANT COULD HELP YOU.";:[137]20009
  376. 21240 [153]"ELEVATOR JAMMED, TRY ANOTHER WAY OUT.";:[137]1
  377. 21250 [139]L[178]17[175]E[178]0[167][153]"KEYHATNLE IS UNDER FLOOR NUMBERS.";:[137]1
  378. 21299 [153]"I CAN'T THINK OF ANYTHING NOW.";:[137]1
  379. 21300 [143]
  380. 21310 [139]L[171]13[167][153]"NOTHING IN HERE TO BREAK.";:[137]1
  381. 21320 [139]N[171]11[167][153]"I CAN'T BREAK THAT.";:[137]1
  382. 21330 [153]"MIGHT HURT MYSELF IF I BREAK THE GLASS.";:[137]1
  383. 21400 [143]
  384. 21410 [139]L[171]14[167][153]"I CAN'T DO THAT HERE.";:[137]1
  385. 21420 [139]D[167][153]"THE FIRE IS ALREADY OUT.";:[137]1
  386. 21430 [139]L(23)[171]H[167][153]"I NEED SOMETHING TO PUT OUT THE FIRE.";:[137]1
  387. 21440 [153]"GOOD WORK, YOU DOUSED THE FIRE.";:D[178]1:L(23)[178]0:[141]25000:[137]1
  388. 21510 [139]I[167][153]"LOAD":[151]53281,0:[137]1
  389. 21520 [139]L[178]16[167][151]BC,G:[137]21550
  390. 21525 [139]L[178]13[167][151]BC,0
  391. 21549 [151]BC,1
  392. 21550 [145]L[171]12[141]23101,23200,23300,23400,24000:[137]1
  393. 21600 [143]
  394. 21610 X[178]29:Y[178]14:[141]20002:[153]"PRINT#(null)TAB(TAB(TAB(TAB(TAB((null)"[166]32)"(null)       (null)";
  395. 21620 [153][166]31)"FNPOKE(null)E0 0PEEK(null)PRINT#STEP"[166]31)"(null)WAITPRINT#   CONT(null)PRINT#  STEPWAITSTEP";
  396. 21630 [153][166]31)"WAIT(null)POKE  PRINT#(null)WAIT  STEPWAITSTEP"[166]35)"WAIT(null)POKE  PRINT#WAITSTEP";
  397. 21699 [142]
  398. 22000 [143]
  399. 22005 Y$[178]" "[170]R$[170]" ":[129]Q[178]1[164][195](Y$)
  400. 22010 [139][202](Y$,Q,4)[178]" YOU"[167]22050
  401. 22020 [130]:[137]20201
  402. 22050 [141]22100:[139][202](Y$,Q,6)[179][177]" YOUR "[167]Y$[178]Y$[170]"TOO!":[137]22090
  403. 22060 Y$[178][200](Y$,Q[170]5)[170]"OWN "[170][202](Y$,Q[170]6)[170]"!"
  404. 22090 [153][200](Y$,38);:Q[178]9E9:[130]:[137]1
  405. 22100 [141]22200:[141]22190:[153]"WAIT                                      ";
  406. 22190 X[178]0:Y[178]21:[137]20002
  407. 22200 [141]22190:[153]"WAIT                                   ";
  408. 22205 [141]22190:[153]"";:[142]
  409. 23100 [143]
  410. 23101 XT[178]23:[151]53281,0:[153]"";
  411. 23110 [153][163]XT)"POKE         "
  412. 23112 [153][163]XT)"POKE PRINT#       POKE "
  413. 23114 [153][163]XT)"POKE PRINT#  03SQR  POKE "
  414. 23116 [153][163]XT)"POKE PRINT#       POKE "
  415. 23118 [153][163]XT)"POKE PRINT#  SQRLEFT$0  POKE "
  416. 23120 [153][163]XT)"POKE PRINT#       POKE "
  417. 23122 [153][163]XT)"POKE PRINT#       POKE "
  418. 23130 [153][163]XT)"POKE         "
  419. 23132 [153][163]XT)"POKE       (null) ";:[139]P[167][153]"CMDCMD. ";
  420. 23133 [153]
  421. 23135 [129]Q[178]1[164]7:[153][163]XT)"POKE         ":[130]
  422. 23140 XT[178]5:[153]""
  423. 23141 [139]L(2)[178]H[167][153][163]XT)"CONTTOTOTOTOTO":[153][163]XT)"(null)    STEP":[137]23150
  424. 23142 [153][163]XT)"THEN"
  425. 23144 [153][163]XT)"(null)(null)"
  426. 23146 [153][163]XT)"CONTTOSTEP(null)CONTWAITTOTO"
  427. 23148 [153][163]XT)"CONT(null)(null)STEPWAITCONTSTEP"
  428. 23150 [153][163]XT)"CONT(null)    STEP "
  429. 23152 [129]Q[178]1[164]4:[153][163]XT)"     CONT  ":[130]
  430. 23154 [153][163]XT)"     CONT WAITSTEP"
  431. 23156 [153][163]XT)"     CONTWAITSTEP"
  432. 23199 [142]
  433. 23200 [143]
  434. 23210 [141]25000:[139]L(4)[171]H[167][141]25500
  435. 23220 [139]L(4)[178]H[167][141]25700
  436. 23270 [153]"":XT[178]3
  437. 23272 [153][163]XT)"(null)(null)
  438. 23274 PRINTTAB(XT)"[209][209][209][209]
  439. 23276 [153][163]XT)"(null)(null)(null)(null)(null)(null)
  440. 23278 PRINTTAB(XT)"[209][209][209][209][209]
  441. 23280 [153][163]XT)"(null)(null)(null)(null)
  442. 23282 PRINTTAB(XT)"[209][209][209]
  443. 23284 [153][163]XT)"VERIFYINTWAIT(null)(null)"
  444. 23286 [153][163]XT)"RIGHT$SGNWAIT(null)"
  445. 23288 [153][163]XT)"MID$ "
  446. 23290 [153][163]XT)"THEN"
  447. 23292 [153][163]XT)"SYS     "
  448. 23294 [153][163]XT)"SYSGET   WAITGET"
  449. 23296 [153][163]XT)"SYSWAITABS   WAITSGN"
  450. 23297 [153]"POKETAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(";
  451. 23299 [142]
  452. 23300 [143]
  453. 23310 [141]25000
  454. 23397 [153]"POKETAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(";
  455. 23399 [142]
  456. 23400 [137]23700
  457. 23550 [141]20002:[153][200]("(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR",W)"(null)";
  458. 23560 [139]V[167][129]Q[178]1[164]V:[153][166]39[171]W)"SGN"[166]W[171]1)"+";:[130]
  459. 23572 [153][166]39[171]W)[200]("(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND",W)"SQR";:[142]
  460. 23590 [153]"LOAD"[163]9);:[151]53281,0:[129]Q[178]1[164]22:[153]"(null)";:[130]
  461. 23591 [153]""[163]9);
  462. 23592 [129]Q[178]1[164]21:[153]"(null)ON";:[130]:[142]
  463. 23700 [153]"";
  464. 23705 [153]"                  CLR(null)
  465. 23710 PRINT"                  [156] [223]
  466. 23715 [153]"                  CLR  (null)
  467. 23720 PRINT"                  [156]   [223]
  468. 23725 [129]Q[178]1[164]9:[153]"                  CLR                      ";:[130]
  469. 23730 [153]"                  CLR   WAITSTEP
  470. 23735 PRINT"                  [156]  [146][169]
  471. 23740 [153]"                  CLR WAITSTEP
  472. 23745 PRINT"                  [156][146][169]
  473. 23750 [153]""[163]27)"PRINT#(null)LIST  PRINT#WAITSTEP
  474. 23752 IFGTHENGOSUB21600:GOTO23760
  475. 23755 X=29:Y=14:GOSUB20002:PRINT"[152][206][163][163][163][163][163][205]"SPC(32)"[206]       [205]";
  476. 23757 PRINTSPC(31)"[165][204]E0 0[194][204][169]"SPC(31)"[151][223][146][152]   [218]  [169][146][169]";
  477. 23759 PRINTSPC(31)"[146][151][223][152] [146][169][151][223][152][146]  [169][146][169]"SPC(35)"[146][151][223][155]  [146][169]";
  478. 23760 PRINT"[198][198]"SPC(37)"  [165] "SPC(36)"  [165] ";
  479. 23765 PRINTSPC(35)"[212]  [165] "SPC(36)"  [165] "SPC(36)"  [165] "SPC(36)"  [165] ";
  480. 23780 PRINT"";:IFFTHEN23800
  481. 23785 PRINT"        ";
  482. 23787 PRINTSPC(32)"WARNING:";
  483. 23789 PRINTSPC(32)"        ";
  484. 23791 PRINTSPC(32)"  HIGH  ";
  485. 23793 PRINTSPC(32)"VOLTAGE!";
  486. 23795 PRINTSPC(32)"        ";
  487. 23796 PRINTSPC(32)"        ";
  488. 23797 PRINTSPC(32)"     [195][209] ";
  489. 23798 PRINTSPC(32)"        ";
  490. 23799 GOTO23999
  491. 23800 PRINT"[145][145][146][223]";
  492. 23805 PRINTSPC(39)"[146] [223]";
  493. 23810 PRINTSPC(38)"[146]         ";
  494. 23815 PRINTSPC(31)"[146]         ";
  495. 23820 PRINTSPC(31)"[146]   [209]   O ";:IFGTHENPRINT"[157][157][209] ";
  496. 23825 PRINTSPC(31)"[146]         ";
  497. 23830 PRINTSPC(31)"[146]   [209]   [209] ";
  498. 23835 PRINTSPC(31)"[146]         ";
  499. 23840 PRINTSPC(31)"[146]   [209]   [209] ";
  500. 23845 PRINTSPC(31)"[146]         ";
  501. 23850 PRINTSPC(31)"[146]         ";
  502. 23855 PRINTSPC(31)"[146] [169]";
  503. 23860 PRINTSPC(38)"[169]";
  504. 23999 RETURN
  505. 24000 PRINT"[147]";:FORQ=1TO20:REM DRAW INSIDE OF ELEVATOR
  506. 24010 PRINT"          [158][180]        [199]        [182]           ";
  507. 24020 NEXT
  508. 24030 PRINT"  NO   [157][157][157][157][157][157][157]SMOKING";
  509. 24090 PRINT"[146][144]4[157]3[157]2[157]1[157]"MID$("[193][218]",E+1,1):RETURN
  510. 25000 REM
  511. 25010 PRINT"":XT=16:IFL=15THENXT=10
  512. 25015 PRINTTAB(XT)"[152][169]                [223]
  513. 25020 [153][163]XT)"PRINT#STEP                  (null)
  514. 25025 PRINTTAB(XT)"[144]                    "
  515. 25030 PRINTTAB(XT)"[175][175][175][186][175][175][175][186][175][175][175][186][175][175][175][186][175][175]
  516. 25035 [153][163]XT)"ANDSQRANDANDANDSQRANDANDANDSQRANDANDANDSQRANDANDANDAND
  517. 25040 PRINTTAB(XT)"[175][175][175][186][175][175][175][186][175][175][175][186][175][175][175][186][175][175]
  518. 25045 [153][163]XT)"ANDSQRANDSQR(null)(null)STOPFN    THEN(null)(null)(null)ANDANDAND
  519. 25050 PRINTTAB(XT)"[175][175][175][186][206][206][144][165]    [167][205][205][204][186][175][175]
  520. 25055 [153][163]XT)"ANDSQRANDSQR(null)(null)STOPFN    THEN(null)(null)(null)ANDANDAND
  521. 25060 PRINTTAB(XT)"[175][175][175][186][206][206][144][204][175][175][175][175][186][205][205][204][186][175][175]
  522. 25065 [153][163]XT)"ANDSQRANDSQR(null)(null)      (null)(null)(null)ANDANDAND
  523. 25070 PRINTTAB(XT)"   [167][206]        [205][165][167]  "
  524. 25072 IFL=15THENRETURN
  525. 25074 PRINT"[145][145][145][145][145]";:XT=XT+7:IFDTHENPRINT"";:GOTO25084
  526. 25080 PRINTTAB(XT)"[144][172][191][188]
  527. 25082 [153][163]XT)"STOPSINSINSIN
  528. 25084 PRINTTAB(XT)"[166][166][166][166]
  529. 25086 [153][163]XT)"SPC(SPC(SPC(SPC(SPC((null)
  530. 25099 RETURN
  531. 25500 PRINT"";:XT=19
  532. 25505 PRINTTAB(XT)"[144][172][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  533. 25508 PRINTTAB(XT)"[144][161]            [146][144][161]"
  534. 25510 PRINTTAB(XT)"[144][161]     [146][169][144][166][172][223]   [146][144][161]"
  535. 25520 PRINTTAB(XT)"[144][161]    [146][169][144] [166]   [188] [146][144][161]"
  536. 25530 PRINTTAB(XT)"[144][161][146] [187][188][146] [156][191][144]    [183][208] [146][144][161]"
  537. 25540 PRINTTAB(XT)"[144][161][146]     [156][191][144] [169]    [146][144][161]"
  538. 25550 PRINTTAB(XT)"[188][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  539. 25599 RETURN
  540. 25700 PRINT"":XT=23
  541. 25710 IFSTHEN25800
  542. 25720 PRINTTAB(XT)"[159]      "
  543. 25722 PRINTTAB(XT)"      "
  544. 25724 PRINTTAB(XT)"   [215] [199]"
  545. 25726 PRINTTAB(XT)"      "
  546. 25728 PRINTTAB(XT)"      "
  547. 25799 RETURN
  548. 25800 XT=XT-2:PRINT"";
  549. 25805 PRINTTAB(XT)"[144] [159][223]"
  550. 25810 PRINTTAB(XT)"[144] [159] [144][205]    [206]"
  551. 25820 PRINTTAB(XT)"[144] [159] [144] [205][164][164][206] "
  552. 25830 PRINTTAB(XT)"[144] [159] [144] [167]  [165] "
  553. 25840 PRINTTAB(XT)"[144] [159] [144] [206][163][163][205] "
  554. 25850 PRINTTAB(XT)"[144] [159] [144][206]    [205]"
  555. 25855 IFL(3)=10THENPRINT"[145]"TAB(XT+3)"[144][215][195][146][185]
  556. 25860 [153][163]XT)"STOP OPENWAITSTEP
  557. 25899 RETURN
  558. 29000 BC=53281:DATAMARKER,FOIL,DIAMOND,KEY,PICTURE,RADIO,MATCHES
  559. 29010 READXC$:IFXC$<>"MARKER"THEN29010
  560. 29030 DIMD$(50),L(50):FORQ=1TO6:READD$(Q):NEXT:H=99:L=16
  561. 29032 FORQ=21TO23:READD$(Q):NEXT:DATAPOTTED PLANT,PLANT,SOIL
  562. 29040 PRINTRE$:FORQ=1TO6:READL(Q):NEXT:DATA99,13,10,14,99,99
  563. 29045 L(21)=14:L(23)=21
  564. 29050 A$=" OPGOLOPRCUPUINJUGEHEBRDOSMEXLIFE"
  565. 29060 B$=" FODIKEPIRAMA[203][203]FUFISAGLTO1 2 3 4 ELUPOUDOPOPLSO"
  566. 29099 GOTO3
  567. 40000 IFMLTHENPRINT"[146]               ";
  568. 40010 RETURN
  569.